PC Media 15/PC MEDIA CD15.iso/cddemo/cddemo.exe/CDDEMO.DXR/00004.ls

Text File | 1996-01-27 | 545 b | 22 lines

on exitFrame
  global lista, puntero
  set puntero to 1
  set encontrado to 0
  repeat while (encontrado = 0) and (puntero <= 8)
    set cual to getAt(lista, puntero)
    if cual <> EMPTY then
      set encontrado to 1
      next repeat
    end if
    set encontrado to 0
    set puntero to puntero + 1
  end repeat
  if encontrado = 0 then
    beep(1)
    alert("NO HAY NINGUNA DEMO SELECCIONADA. Debe seleccionar los botones situados debajo de cada caja y pulsar luego el bot├│n  DEMO")
    go("productos")
  else
    go(1, cual)
  end if
end